(undo-more): When undo information for the region is exhausted, say

"No further undo information FOR REGION".

diff --git a/lisp/simple.el b/lisp/simple.el
index 53c9c680cc979fae4b34baf925223685c2602a83..105c5a9afcef41c00a100ce72808105bd572a0be 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1501,8 +1501,7 @@ Call `undo-start' to get ready to undo recent changes,
 then call `undo-more' one or more times to undo them."
   (or (listp pending-undo-list)
       (error (concat "No further undo information"
-                     (and transient-mark-mode mark-active
-                          " for region"))))
+                    (and undo-in-region " for region"))))
   (let ((undo-in-progress t))
     (setq pending-undo-list (primitive-undo n pending-undo-list))
     (if (null pending-undo-list)